(Fother_buffer): Change for Lisp_Object selected_frame.

(record_buffer): Ditto.

diff --git a/src/buffer.c b/src/buffer.c
index 68013d4032a44e03b50a5c691476ab22171a2f65..996833857868c27d19958bccc1f64967beb0b529 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -921,7 +921,7 @@ If BUFFER is omitted or nil, some interesting buffer is returned.")
   notsogood = Qnil;
 
   if (NILP (frame))
-    frame = Fselected_frame ();
+    frame = selected_frame;
 
   tail = Vbuffer_alist;
   pred = frame_buffer_predicate (frame);
@@ -1241,7 +1241,7 @@ record_buffer (buf)
 {
   register Lisp_Object link, prev;
   Lisp_Object frame;
-  frame = Fselected_frame ();
+  frame = selected_frame;
 
   prev = Qnil;
   for (link = Vbuffer_alist; CONSP (link); link = XCONS (link)->cdr)